«YOUR UFE WPT SEVER BETH sae compureR CLUB” 


Finally the fifth newsletter is 
out. From the letters we have re- 
ceived, it is quite obvious that 
most of our clubmembers are hooked 
on the newsletter (luckily it is 
legal!). Why only a month after the 
fourth newsletter was circulated, we 
were receiving letters demanding to 
know when the fifth one would be 
done. 

Well here it is, and as you can 
see it has changed a bit again. 
There are now 4 pages of consumer 
programs, a new section called "For 
Your Information", and the second 
part of our series on graphics. 

Have fun reading this issue club- 
members, we will be waiting for 
your responses. 


Editor 
SPOTLIGHT ON SOFTWARE 


Electronic Files: - MA425 

Are you tired of searching 
through drawer after drawer, file 
after file, many times not finding 
the information you were looking 
for? 

End those problems with APF's ‘% 
Electronic Files program. With 
APF's Electronic Files program, 
finding information is as easy as 
typing in a file name and seconds 
later, having the information you' 
have requested appear on the screen 
in front of you. Save time and 
aggravation; make your life easier 
with APF's Electronic Files program. 


APF 
IMAGINATION 
MACHINE 


TS a ea Senn hin 


¥ 


Bar Charts - MA350 

Who has the best way of display- 
ing sales projections, cost analy- 
sis, or comparision charts? That's 
right: APF does and so can you with 
the APF Color Bar Chart program. 

APF's Bar Chart program is de- 
signed to display your data in color 
ful, easy to read chart form. Lt 
includes the options of displaying 
one chart, two charts side by side, 
or two charts combined. With APF's 
Colorful Bar Chart program, conduct- 
ing financial business can be fun. 


SPOTLIGHT ON HARDWARE 


ATTENTION SMALL BUSINESS PEOPLE! 

APF is proud to introduce a new 
member of its family - The Imagina- 
tion Machine II (from here on known 
as IM-2). Now you can perform your 
business operations in a fraction of 
the time it once took, have complete 
organization of accounts, and save 
money in overhead; all while discov- 
ering the world of computers! 

Don't worry, a degree in Computer 
Science is not required. A little 
common sense and some practice using 
the machine is all that is necessary. 

For those of you technically mind- 
ed, read over the specifications and 
take notice of all of the features 
and hardware that are included for 
‘an affordable price of $1599.95:: 


27K RAM (Random Access Memory) 
11K Direct Access in Basic Unit 
16K Additional Direct Access 
(plug-in cartridge form) 


ROM (Read Only Memory) 
14K Bytes 


Keyboard 
53-key Stepped Typewriter Style 


Connections 


tone or Video Monitor 
(optional APF Model TVM-10) 


3 Major Screen Display Modes 
32 Characters X 16 Lines 


Alpha Numeric Mode, which 


mode. 


tion graphics - 128 user 
definable objects, giving 


colors). 


tion graphics - 128 X 96 


Tape Deck 
Quality built-in cassette 


fers computer programs at 
1500 BAUD rate. 
/playback capability. 
er, volume control, micro- 
phone jack built-in. 


User Programmable 


guage. 


guage. 


Additional Features 


connection to T.V. 
Disk operation system (DOS) 
contained in ROM. 


ROM for use with object 


/lower case capability. 
Building Block - includes 


terface) 
Parallel Printer Interface 
Dual Floppy Disk Drives 


ational manuals. 


Any Standard Color or Mono- 


can be intermixed with 64 X 
32 (in 8 colors) semigraphics 


Object oriented high resolu- 
resolutions of 256 X 192 (in 
2-COLeOrs): GY 128 xX -3927 in 8 
Point by point high resolu- 


points definable in 4 colors. 


tape deck which uses standard 
Philips type cassettes, trans 


Audio record 
Speak- 


Programmable in "Basic" lan- 


Programmable in MC6800 lan- 


R.F. modulator included for 


Built-in character generator 


graphics mode - allows upper 


FI-100 (mini-floppy disk in- 


All necessary cables, power 
supplies, technical and oper- 


This system has been designed 
with all the necessary hardware and 


-it will function with programs in 


floppy disk or cassette form. 
(Please note that almost all of the 
IM-l's hardware and software is com- 
patible with the IM-2, with the ex- 
ception of the Backgammon and the 
Baseball programs). 

You get all this hardware for 
only $1599.95! It's unbelievable, 
but 1t's true. Leave it to APF to 
make your dreams of owning a com- 
puter which satisfies your needs, a 
little more of a reality. 


Level 2 Basic 


Now perhaps the excitement of the 
IM-2 is under control (doubtful), 
but there is still another reason 
for your. adrenaline to be pumping. 
The Level 2 Basic is now here!!! 
(please note: There are two versions 
of Level 2 Basic; one for the IM-1l 
and the other for the IM-2. Please 
specify your machine when ordering 
Level 2 Basic.) -Due to a limited 
amount of space, we will only do a 
quick summary of the Level 2 Basic. 
Further information can be obtained 
from APF directly. 


Features of the Level 2 Basic 


Keyboard (Refers to IM-2 only) 
Operates in both upper and 
lower case. Control Key (CTRL) 

fe and various other keys enter 
graphic symbols, Pi (mt), super- 
scripts, and more. 


System Commands 
List - lists your program one 
line at a time; from one spec- 
ified line number to another, 
from one specified line number 
to the end of the program, or 
lists complete program. 


Delete - operates in the same 
Manner as the list command, ex- 
cept it deletes line statements 
instead of listing them. 


Clear - clears values of vari- 
ables. 


Nene” 


CLS - clears screen and "HOMES" 
the cursor. 


a New - clears out all line 


: statements and variables from 
computer's memory. 
Editor 
Used for editing stored and 


currently entered line state- 
ments by inserting and deleting 
characters. Cursor can be 
moved throughout the line and 
sent instantly to the beginning 
of the line. 


Standard operators (+,-,/,*,t) 
Variables 


Can be numerical or string type 
and does not require dimension- 
BK: 


Tape 
CSAVE and CLOAD programs to 
¢ tape. 


on Math 
9 digit floating decimal point 
with scientific notation. 


Statements 
PRINT, STOP, END, CALL, PEEK, 
POKE, REM, LET, INPUT, DATA, 
NEW, RESTORE, FOR, NEXT, STEP, 
TO, GOSUB, RETURN, GOTO, ON, 
IF ERROR, PRINT@, IF _ THEN _ELSE, 
PRINT USING, TIME, DEFINE FUNC- 
TION, CONTINUE 


Functions 


SIN, COS, TAN - Arguement in 
Radians, ARC TAN, LN, EXP, xXty, 
SQR, TAB, INT, ABS, ‘RND, SGN, 
STR$, VAL, RIGHTS, LEFTS, MIDS, 
AS$+B$, IN KEYS, LEN, ASC, CHRS 


Graphics 
GRO Alpha/Semigraphics mode 


GR2 Point x Point 128 xX 96 res- 
olution in 4 colors (IM-2 only) 
GR4 Object Mode - 128 objects 
(IM-2 only) 

GR6 Point x Point 256 X 96 res- 
olution in 2 colors (IM-2 only) 


Sound 
Sound X,Y Frequency X, Dur- 
ation Y 


This Level 2 Basic is retailing 
for $99.95, and comes in cartridge 
form. A great addition to your Im- 
agination Machines, at an unbeatable 
pricet!! 


FOR YOUR INFORMATION 


Stand back and make way for our 
new section, "For Your Information". 
In this section we will pass on bits 
of information which we have re- 
ceived from our readers and staff 
members. We hope that this section 
proves to be both informative and 
helpful. 

The first bit of information con- 
cerns the Newsletter. It has been 
brought to our attention that many 
YLWNBS clubmembers expect newslet- 
ters monthly. Let it be known that 
this is not to be expected. TS 
lessen the anxiety of those believ- 
ing they've missed issues, and to 
inform still more of you that are 
uncertain, the newsletter is pro- 
duced quarterly. 

Now that that little item is 
cleared up we can move on to substi- 
tutes for logical "OR" and "AND" 
functions in IF-THEN statements. 

Although the logical "OR" and 
the logical "AND" functions are not 
in the "Basic" vocabulary, there is 
a way to compensate for them. For 
instance, the "AND" function would 
be used as follows: 

IF A=5 AND BS= "FRED", THEN.... 
On the Imagination Machine it is 
written as: 

IF A=5 THEN IF B$= "FRED" THEN.. 
Now although a replacement for the 
"OR" function is not as obvious, 
there is one and it uses the multi- 
plication property of zero. For 
example, the "OR" function would be 
used as follows: 

IF A=6 OR B=5 OR C=4 THEN 1000 
On the Imagination Machine it is 
written as: 

IF (A-6)*(B-5)*(C-4)=0 THEN 1000 
Our thanks to Bruce Chapman for this 
information. 


Now for all you hobbyists: APF 
is offering a video conversion kit 
(Model VK1) which will enable you 
to connect your Imagination Machine 
to any black and white monitor. To 
convert your machine requires new 
connections in the MP1000 section, 
which can be done by you or APF. 
The kit sells for $15.00 complete 
with schematics, and may be pur- 
chased from APF directly. If you 
choose to send in your unit to 
APF for-converting, please add 
$5.00 for postage and handling. 


Another new APF item is a Diag- 
nostics Program. APF now offers a 
set of diagnostics which will check 
Graphics, ROM, RAM, KEYBOARD, and 
TAPE functions. This program is 
available on cassette tape for 
$15.00 and may be obtained from APF 
directly. (Model #SyY-50). 


Our final bit of information 
should interest many clubmembers. 
In approximately two months, APF 
will have a complete user written 
software book available. This book 
will provide users with an excel- 
lent exchange of ideas and programs, 
ranging from business applications 
to renumbering of programs. For 
more information contact the Editor 
at APF. 


Thats: it -for-this<1ssue"s "For 
Your Information". If you have any 
thoughts or ideas which you would °* 
like to share with fellow clubmem- 
bers, don't hesitate to send them 
Ets 


YOU ASKED FOR IT 


This issue's "You Asked For It" 
will undoubtably bring cheers from 
many of our clubmembers for the 
following three reasons: Sound Gen- 
eration, Chaining Programs, and in- 
formation on Machine Language. Let 
the noise begin with Sound Genera- 
ye oe aie 

A number of requests have been 
made asking for Call numbers for 
Sound Generation. Here are five 


such Call numbers, along with a pro- 
gram which demonstrates some of the 
‘remarkable sounds which can be made 
with your Imagination Machines. 


CALL NUMBERS PROGRAM 
17001 5 DIM A(5) 
17005 20 For I=1 TO 5:READ 
2 17007 ACh) 3 NEXT or 
L7017 30 DATA 17001.,1.7005;, 


17035 £700752701-7;/17035 


40: FOR 1=1.- 10-1000: 
J=INT (6*RND(O) ) 

55 IF J=0 THEN J=J+2 
60 K=INT (4*RND(0O) ) 
70 FOR L=0 TO K 
80° CALL —A(J) 
90 NEXT L 

LOO-NEXTSS 


And now for chaining programs! 
For those of you that have disk sys- 
tems, you are aware that the Disk 
Operating System allows "chaining" 
of programs. Many of you have made 
attempts at chaining programs and 
were not successful. Rest assured 
that the following information will 
produce successful results. 

Chain disk programs, or in other 
words, have a program residing in 
the computer's memory, load another 
program from the diskette and auto- 
matically have it run. The command 
structure is simply to have a pro- 
gram statement which says: RUN "FILE 


NAME". When that statement is exe- 
cuted, "FILE NAME" is loaded from 
diskette and automatically started. 


*» Now before you run off and try to 
chain programs, there is a slight 
problem which must be corrected. 
Pointers which tell "BASIC" where to 
dimension variables are not initial- 
ized correctly when a program is 
chained in. A very simple solution 
is as follows. The first line state 
ment of each program being chained 
must be: POKE 41009,PEEK (41984): 
POKE 41010, PEEK (41985). With this 
as your first line statement in pro- 
grams being chained, you should have 
no problems at all. 


On to the information concerning 
machine language. It's good to know 
that many of our "BASIC" programmers 


are making an effort to learn ma- 
chine language programming. To make 
this process a little easier, we 
have compiled a list of books which 
may be helpful. Good Luck!!! 


1. Motorola 6800 Programming Refer- 
ence Manual-Motorola Semiconduc- 
tor Products Box 20912, Phoenix, 
Arizona 85036 


2. "68" Micro-Journal-3018 Hamill 
Road, PO Box 849, Hixson, Tenn. 
37343 


3. Basic Microprocessors and the 
6800 Motorola Semiconductor Group 
by Ron Bishop 


4. The 6800 Microprocessor:A Self 
Study Course with Applications 
by Lance Leventhal 


HIGH RESOLUTION GRAPHICS 


Judging by your responses it 
appears that the section on high 
resolution graphics was quite help- 
Ful; In this issue we will discuss 
high resolution graphics using four 
colors (in two color sets) in the 
128 x 192 mode. This mode is a bit 
more difficult but then again, it's 
a lot more colorful and quite use- 
ful. To keep your enthusiasm up, 
just keep reminding yourself that it 
is the mode used in APF's Baseball, 
Backgammon, and UFO cartridges. 

The first step is to get your 
fourth newsletter out, because a iliot 
of the information that you learned 
for the 256 x 192 mode is applicable 
to the 128 x 192 mode; the screen 
map, and the general program for 
putting codes into memory are the’ 
same. The two major differences 
are the POKE commands to enter this 
mode, and the method of defining 
the colorful shapes. 

First the easy partethe pokes to 
enter the 128 x 192 mode are: POKE. 
8193,56 and POKE 8194,158. Easy 
right?! 

Now for defining the shapes- 

In the 128 x 192 mode, each shape 
is four dots wide (as opposed to 8. 


dots in the 256 mode) and sixteen 
lines high. Each dot can be select- 
ed to be one of four colors. Once 
again this requires the use of Bi- 
nary. For four possible colors we 
need two Binary digits (bits) in 
order to indicate the four colors. 
These bit pairs are; 00,01,10,11. 
Each eight bits (commonly known as 

a byte) has four pairs, which works 
out to be four colored dots per byte 
The basic color set and the four bit 
pairs are: 


Bit Pair Color 
00 Green 
Ol Yellow 
10 Blue 


Red 


Getting a little complicated now, 
so pay close attention. A shape (16 
lines of bytes) should be defined 
graphically. A code for each line 
should be generated first in Binary, 
then Hexidecimal and finally con- 
verted to Decimal, since we want to 
program in Basic. As a simple ex- 
ample (kidding aside) lets say we 
want a shape with all sixteen lines 
having all four dots yellow. Graph- 
ically this appears as: 


Bit Pair# 4321 Binary Hex Decimal 
Any haine — ¥Y¥YY 010102 01-55 85 


Still keeping it simple lets define 
a shape in all green. 


Bit Pair# 4321 Binary Hex Decimal 
Any Line GGGG 00000000 00 00 


Keep in mind that for each shape 
there are sixteen lines. We have 
kept it simple so all sixteen lines 
of each shape have the same color. 
Now it is time to incorporate all of 
this information into a program. 

The following program will put up 
alternate rows of green and yellow 
boxes on the screen. 


5 REM SET GRAPHICS MODE 
10 POKE 8193,56:POKE 8194,158 
20 REM LINES 30-70 MOVE OBJECT 
CODES TO MEMORY 
30 DATA 85,85,85,85,85,85,85,85,85, 
85,85,85,85,85,85,85:REM SHAPE#0 


DATA 0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0:REM SHAPE#1 
50 FOR I=512 to 543 
60 READ A:POKE I,A 
70 NEXT I 
80 REM LINES 90-160 SETUP SCREEN 
MAP WITH ALTERNATE ROWS HAVING 
SHAPE O AND SHAPE 1 
90 DATA 0,327 1, 325032; 17 3250;,:325 
£73270 ,32 ;1 3270, S272 732% 
0, 32545527 999;,999 
100 
110 
120 
130 
140 
150 
160 
170 


X=0 
READ A,B:IF A=999 THEN 170 

FOR J=l1 TO B 

POKE X,A 

X=X+1 

NEXT J 

GoTO 110 

REM SCREEN IS SET UP, WAIT FOR 
KEY TO BE PRESSED BEFORE RETURN 
ING TO REGULAR MODE 

IF KEY$(0)="" THEN 180 

POKE 8194,60:STOP 


180 


trou= 
did 


You should not have had any 
ble with the above, but if you 
recheck your program carefully and 
reread both graphic writeups. The 
shapes you define of course can be 
more complex and you can mix the 

four colors -on a: line. In the next 
issue we will discuss the alternate 
color sets (what more colors???) 

and vertical motion of objects. 


NEW SOFTWARE 


General Ledger - BP-50 
Requires: IM-l or IM-2 : 
BB-2 

Dual Disk Drives 

R8K Memory Module-R16K for IM-2 

80 Column Printer (appropriate cable 
and interface) 


APF's General Ledger program 
gives you all the necessary tools 
for maintaining an accurate and com- 
plete general ledger. It will pro- 
duce all the standard financial 
statements, access all account and 
posting information, and several 
additional reporting functions. 

This program will maintain 2034 
posting entries per disk, and will 
verify all entries to avoid process- 
ing postings which are out of bal- 
ance. Seven accounts may be entered 


within each entry, reference numbers 
are automatically assigned, anda 
description for the entry is an op- 
tional data entry. There is alsoa 
balance forwarding function which 
provides standard monthly closing 
procedures, plus reversal processing 
and year-end closing entries. This 
program retails for $199.95, and may 
be purchased from APF directly. 
Compu-Calc - BP-60 

Requires:IM-2 

BB2 

R16K Memory Module 

Dual Disk Drives 

80 Column Printer (appropriate cable 
and interface) 


Compu-Calc is a program which 
combines the functions of a calcu- 
lator, paper and pencil, with a com- 
puter's memory and speed. This pro- 
gram is essential for people that 
deal with numbers. This includes 
people who plan budgets, compare 
actual results to budgeted forecasts 
compute financial ratios and tax 
consequences, commission rates, 
sales costs, advertising expendi- 
tures, etc. Compu-Calc's complete 
with features such as: Fix-point 
arithmatic, printouts for discus- 
sion and documentation, and most 
importantly, on the screen viewing 
of all calculations and comparisons. 
This program retails for $129.95 and 
can be obtained directly from APF. 


) 
LETTERS TO THE EDITOR 


Once again we get the chance to 
show you the wonderful letters we 
receive from our clubmembers. These 
letters are our proof that the APF 
Computer Club is a true success!! 


I will be attending school next 
year at St. Paul's in Concord, New 
Hampshire. Throughout the year I 
will be able to take short trips to 
nearby cities such as N.Y. On one 
of these occasions I would like to 
arrange to visit you if it's conve- 
nient. Larry Drebes 


We have received a number of sim- 
ilar requests and we are more than 


happy to meet with our clubmembers. 
If you would like to visit with us, 
contact the Editor so that a conve- 
nient time may be arranged. 


I was very pleased to receive the 
especially 


Computer Club Newsletter, 
as I live as far away as Australia. 


Your letter and the newsletters that 


I have received have certainly 

served to reduce the sense of "com- 

puter isolation" that I feel here. 

The backup shown by the company 

through this club is tremendous! 
David Powell 


If a registration card is sent 
in you immediately become a member 
of our club, no matter where you 
live! 


I have owned the IM-l for approx.- 


one year and a few people I know 
have had one for awhile. We have 
gotten together a club, Compu-Swap, 
for users of the APF Imagination 
Machine. We would like our club 
to grow and hopefully you can help 
us. I would appreciate it if you 
could put the following announce- 
ment in your next newsletter. 
Thank you very much. 

Bill Vackner 


The following is a copy of 
the announcement Bill Vackner sent 
in to APF. 
COMPU-SWAP PO BOX 1371, 
CALDWELL, NJ 


WEST 
07006 


COMPU-SWAP is a group of users, who 
for the past 6 months have operated 
an APF Imagination Machine Club for 
the purpose of exchanging programs 
and general information about our 
computers. COMPU-SWAP would like 
to extend an invitation to other 
APF owners to join our club. | Any- 
one interested should send a SASE 
to the above address. 5 


That's it for now clubmembers. 
Once again, thanks for your involve- 


ment and support. 


BUGS 


Oh those nasty bugs are back 
again. But never fear, there is a 
solution for all of them. The first 
set of bugs are merely typographical 
errors our clubmembers have discov- 
ered. For instance: 

Basic Tutor corrections 


Page 160 
4th para. delete five rows, 
insert six rows 
5th para. delete (5x8) 
insert (6x9) 
delete 40 
insert 54 
7th para. after DIM BS (4,12) 


delete four words 
insert five words 
insert sentence: with letter 
arrays, the second number exactly 
equals the memory space required. 
Page 29- The very last item, A3S$ is 
not incorrect as suggested. It 
should read 3AS. 


Page 36- Line 70-The monitoring 
program will not accept the space 
between O=NO, and 1=YES. Therefore 
delete the space. 


Page 116- Line 50-There should be 8 
Spaces between interest and total, 
not one as shown. 


Page 228 under D-DATA-delete the 
quotation marks around data items. 


. Thank you David Powell for the Basic 
Tutor corrections. 


Fourth YLWNBS Newsletter Corrections 
In section B in the High Resolution 
Graphics write-up, remove one zero 
from line 60. 

In the D section, 
ing: 130 GOTO 90. 
The final bug in the 5th newsletter 
is in the bug section. Stop laugh- 
ing and insert in number six; press 
the CL key and then the Break key. 


insert the follow- 


Now for the serious 
RND-We have discovered 
condition which occurs in powering 
up, which always makes the RND (0) 
function produce a result of zero. 
Since each time you power up this 


bugs: 
a possible 


a a ee i ae 


condition may or may not occur, the 
best solution is to place the 
following statement in any program 
which uses the RND function: POKE 
40994,27. This statement will al- 


leviate your problems. 


Disk-There is a problem which occurs 
when you're trying to delete disk 
files that were named by a string 
variable value. Ex. DIM A$ (7)="TEST 
":OPEN O AS. 

Now if you try to delete "TEST" by 
typing SAVE"TEST"K, the error mess- 
age, “A FILE NOT FOUND" will occur. 
The reason for this is that on the 
diskette directory the file named 
"TEST" is actually seven characters. 
(TEST being the first four and the 
last three are ASCII code 0). The 
solution for this problem is to 
type: SAVE"TEST CTRLA. CTRLA’ CTRLA 
CTRLA’ K. (For CTRL. press the 
control key and the "A" key simul- 
taneously, leaving out all of the 
spaces in between the words.) By 
typing in the above you add three 
zeros to the name "TEST", thus 
eliminating your problem. 

The final bug was sent in by 
David Powell one of our Australian 
clubmembers! David has a knack for 
discovering bugs and we are certain- 


ly thankful to him for the following: 


Spelling Duel:If at the end of a 
game the operator selects new game/ 
new players, then the old player(s) 
name(s) and score(s) are not cleared 
The fis for: this; : 
OPOKE 40994,27 
1POKE 24578,38 
2010DIM SC (3,6),NMS$ (4,10) 
2140FOR P=1 TO NP:NMS(P-1,0)="TEN 
SPACES":FOR Z=0 TO 6:SC(P-1,0) 
=0:NEXT 
2160INPUT NMS(P-1,0):IF ASC(NMS(P- 
1:0)>) $32 MUSICe"/ 1" <GOTo- 2550 
2170MUSIC "7":NEXT:NG=1 


, 


That's all of the bugs we are 
aware of. If you have discovered 
any other bugs, be a loyal club- 
member and let the rest of us know 


about it: 


SUBMITTED CLUBMEMBER PROGRAMS 


tion of a moon landing sent in to us 
by Bruce Neustater of Morganville 
-J. The object of game is to land 
the spaceship on the landing pad 
without crashing. 
lieve me it is not easy! 


N 


» 


This first program is a simula- 


Try 2.6, but be= 


1 CALL 17046: DIM A$(1)? POKE 2457&,38: GOTO 6 
2 PRINT “ENTER RANK!"? PRINT “1=PRIVATE": FRINT “2=MAJOR": PRINT "3=GENERAL": M 
uUSIC "1": PRINT 
3 AS= KEYS (2): IF AS="" THEN 3 
cae "=4" RAS ER=R/ 100000000 


4 
Ss 
6 cau T7028 
7 


SOTO 
8 pacesoePesi21 POKE 40960,A/254: POKE 40961+A- INT (A/256)*256: RETURN 
9 CALL 17046 

10 COLOR =0: SHAPE =15: FOR U3=0 TO 15: HLIN 0-31,U3! NEXT US 

20 DIM As(1) 


30 GOSUB 8 

31 POKE $193,460 

35 INT " <<<< MGON LANDER >>>>": PRINT = PRINT "*=THRUST >=RIGHT TH 
RUS <=sLEFT THRUST": PRINT 


T 
38 PRINT : PRINT 
40 COLOR =4: HLIN 15,20+12 
45 COLOR =3: PLOT 17,5: PLOT 16,6: PLOT 18/4: FOR Z=0 TO 250: NEXT Z: COLOR =0: 
PLOT 17/5: PLOT 16,6: PLOT 18546 
46 COLOR =3: PLOT 17/7: PLOT 14/8: PLOT 18/8: FOR Z=0 TO 250: NEXT Z: COLOR =0: 
edt 17+7% PLOT 16-8: PLOT 18°38 
47 OR =3: PLOT 17/10: PLOT 16,11: PLOT 16,11 
50 PRINT “HIT ANY KEY TO START” 
60 oe ast TO 150: IF KEYS (2)<>"" THEN 100 


7S tusic” a 


GOTO 40 
100 CALL 17046: GOSUB 2 
101 FOR U3=1 TO 32: PRINT = NEXT ? 
110 SHAPE =15 
120 COLOR =0? HLIN 0131715 
130 COLOR =4: SHAPE =4: PLOT 214: PLOT 7/11: PLOT 1696 
131 PLOT 28/9 

SHAI 


CALL 17026 


135 =15 
140 O= INT (SO/R)2X1=17:Y=32X=4:HS=. 2#R2VS=.2#R 
145 Yi=14 


150 COLOR =4: HLIN X1+X1+3,/Y1 


200 GOSUB 8 5 
205 PRINT “V,SPEED= “3: IF VS<O THEN PRINT "*" 
206 IF VS>=0 THEN PRINT "+"3 
207 PRINT “ "3 ABS ( INT (VS#100))5" H.SPEED= “s: IF HS>O THEN PRINT "-> "3 
211 IF HS<O THEN PRINT "<- "5 
212 PRINT INT ( ABS HB8190)) 
215 PRINT “ FUEL= "30: IF 0<=20 THEN POKE 544,76: POKE 545,79: POKE 546, 
87? POKE 547,96: POKE 548197 
216 IF 0<20 THEN MUSIC “/-10" 
217 PRINT 
218 IF E=1 THEN 3000 
270 A$= KEYS (2): IF A®="S/ THEN VS=VS-.71: CALL 17006 
271 +IF Y>10 THEN IF A%="S" THEN VS=VS+.22 
275 IF A®="W" THEN HS=HS+. as 
280 IF A$="E" THEN HS=HS: 
290 Ri= RND (0): IF R1>. Ten RisR1/2 
295 IF VS#100<50 THEN R¥=R1/2 
300 IF A$="" THEN VS=VS+R1 
305 IF A$="" THEN HS=HS+.15 
307 IF AS<>"S" THEN IF AS<>"" THEN VS=VS+R1 
310 O=0-1: IF 0<0 THEN 8000 
314 Q1=x:C1=Y 
315 X= INT (X)#¥= INT (Y) 
320 K=¥#32+X+512! POKE 40960/K/2563 POKE 40961/K- INT (K/256)#256 
321 PRINT “ "t PRINT “ 
322 X=Q1:Y=C1 
330 COLOR =4: SHAPE =4: PLOT 2/4: PLOT 7/11! PLOT 1616 
331 PLOT 28/9 
341 IF Y>12 THEN 343 
342 GOTO 370 
343 COLOR =4: SHAPE =15 
344 HLIN 17/20/14 
370 X=X+HS?Y=Y+VS 
1 


375 IF X<2 THEN = = 
380 IF Y<2 THEN Y=2 . 
381 IF Y>12 THEN IF X+1<Xi+4 THEN IF X-1>=X1 THEN Y=12 

385 IF Y>14 THEN Y=14 

390 COLOR =3: SHAPE =15: PLOT X+Y! SHAPE =6: PLOT X-1/Y+1? SHAPE =9: PLOT X+1/Y 


S00 IF Y>=12 THEN IF X+1<Xi+4 THEN IF X-1>=X1 THEN 2500 
600 IF Y>13 THEN IF X>X1+4 THEN 1000 
605 IF Y>13 THEN IF X<X1-1 THEN 1000 
606 IF Y>13 THEN 1000 
700 GOTO 200 
1000 COLOR =3: PLOT X,Y: PLOT X#1/¥: PLOT X-1/Y! PLOT X+Y+i# MUSIC “/1/1/144" 
1010 MUSIC "/-1000000000000" 
2000 MUSIC “1112/1/1/1/1/00000": PRINT "THE LANDER HAS CRASHED!!“: PRINT “YOU H 
AVE DESTROYED A“ 
2010 PRINT "$626+718+915+621.00 LANDER! !": GOTO 9900 
2500 E=1: GOTO 200 
3000 MUSIC "11111664854": PRINT “YOU HAVE LANDED!!!" 
E=0 
3010 IF VS#100>120 THEN PRINT “BUT!!!...YOU MADE A "3 RND (0)#10003" FT. CRATE 
R!!!": PRINT “EVERYONE IS DEAD!!": GOTO 9000 
3020 IF VS#100>90 THEN PRINT “... MASSIVE DESTRUCTION HAS“? PRINT “OCURRED!. « 
ba ARE STRANDED ON THE MOON!" 
IF VS#100>90 THEN GOTO 9000 
3080 IF VS#100¢20 THEN 4000 
3050 PRINT “... re LANDING.. BUT EVERYONE IS 0.K.!" 
3060 MUSIC "3" PRINT "DAMAGE To THE MAIN ROCKET | 1s HEAVY! !* 
3070 PRINT “. "ESTIMATED REPAIR TIME IS “3 INT ( RND (0)#100)$" DAYS" 
3080 GOTO 9000 
4000 PRINT “WOW!!! WHAT A LANDING!!“s PRINT “EVERYONE IS FINE...." 
4010 PRINT “DAMAGE TO THE SHIP IS MINIMAL!" 
4020 PRINT “GREAT JOB CAPTAIN! !": GOTO 9000 
sTOP 


8000 PRINT “YOU ARE OUT OF FUEL!": FOR F4=1 TO S: CALL 17006: NEXT 


8010 PRINT “EVERYONE IS DEAD! !": PRINT + MUSIC "/- “FG 
SOOSPRINE So ese © "/-10000000": GOTO 9000 


9090 RA=( ABS (100#HS))+( ABS (200*#VS))-0 
9101 IF 0<=0 THEN 9900 
9105 RA= INT (RA) 
S110 “PRINT "VO 
“YOUR RATING IS: "SRA: MUSIC "33" 
sare oon nen eanene TO PLAY AGAIN* pope 
mt tA$S= KEYS (2): IF AgS="" 

9920 IF AS<>"" THEN 9940 ae tate ee 
9930 MUSIC "3": GOTO 9910 
9940 IF A$="!" THEN 100 
9950 MUSIC "3": END 
9960 POKE 40960,0: POKE 40961,0 
9962 FOR I=1 TO 16: PRINT SPC (32)3: NEXT 
ee POKE 409601: POKE 40960,0 

66 PRINT SPC (8)3"..MOQ ON LANDER..": PRINT ¢ a oe 
PRINT “PUSH IT TOWARDS YOU TO THRUST” : ee eee ee 
9967 PRINT “PUSH IT RIGHT OR LEFT TO STEER": PRINT "THE LANDER...." PRINT " 

++. GOOD LUCK... " 
9968 PRINT : PRINT “TYPE ‘RUN’ WHEN GK APPEARS" 
9970 POKE 40960+2: POKE 40%61,0 


The next program was sent in by 
our very active clubmember, Bruce 
Chapman. The object of the game 
is to score the highest amount of 
points by hitting the enemy starship 
and the clumsy red alien. While 
trying to get these ships be alert 
so that the alien doesn't trample 
you. You will need to play this 
game awhile before you really get 
the hang of-1it. Good Luck! 


© DIM A$(1)2M=207 1 
10 POKE €193,6 POKE €194,15¢: FOR X=512 TO 748: READ Z: POKE XZ? NEXT X? FOR 
X=0 TO 383: POKE X+O: NEXT X 

20 E=382:R=1: POKE E,1! POKE E-1+2: POKE Rr3t POKE R+1+4 

29 MOVES=0 
30 MO=MO+1: POKE M,O: POKE M+1,02 POKE M-1,O:M=M+MC: POKE M6: POKE M+1+7: POKE 
M-1+8: IF (M-R)#(M-E)=0 THEN 300 

31 AS= KEY$ (2): IF AS="" THEN 105 

35 POKE E+0: POKE E-1+0 

40 IF AS="W" THEN E=E-1: IF E<353 THEN E=353 

SO IF A$="E" THEN E=E+1: IF E>383 THEN E=383 

S5 POKE E,1: POKE E-1+2 

S59 IF MO>15 THEN 104 

60 IF A$<>"'" THEN 20 

41 CALL 17016 

65 POKE E-32,)5:P=E-32:PR=-32 

70 CALL 17006: GOSUB 250: POKE P,O:P=P+PR: CALL 17004: IF P>31 THEN POKE P» 5? 
IF KEYS (2)="" IF (P-M)#(P=M=1)#(P-M+1)<>0 THEN 70 

75 IF (P-M)#(P-M-1)#(P-M4+1)=0 THEN CALL 17015: MUSIC "“-/100": CALL 17006:SE=SE 

+.SIMC=-MC: GOTO 104 

80 IF KEYS (2)="W" THEN POKE F+O:PR=PR-1: IF P>31 THEN 70 

90 IF KEY$ (2)="E" THEN POKE P,»O:PR=PR+1: IF P>31 THEN 70 

95 IF P>31_ THEN 70 

aeeeey (P-R)#(P-R-1)#(P-R-2)=0 THEN POKE Re 67! POKE R+i+é8: MUSIC “-/1010+#1": 
=SE+1 

104 MOVES=0 

105 MO=MO+1: POKE MrO? POKE M+1,0: POKE M-1,O:M=M+MC: POKE M14: POKE M+1+7! POKE 
M-1,8: IF (M-R)#(M-E HEN 300 

120 A$= KEYS (1): IF AS: THEN 30 

125 PGKE R+O: POKE R+1,0 

130 IF A$="W" THEN R=R-1: IF R<O THEN R=0 

140 IF A$="E" THEN R=R+1: IF R>30 THEN R=30 

145 POKE R+3: POKE R+1+4 

149 IF MO>15 THEN 29 

150 IF A$<>"!" THEN 105 

151 CALL 17016 

155 POKE R+33,5:P=R+33:PR=32 

160 CALL 17006: GOSUB 250: POKE P,O:P=F+PR: CALL 17006: IF P<352 THEN POKE P)5 

3 IF KEYS (1)="" IF (P-M)#(P-M-1)#(P-M4+1)<>0 THEN 160 

165 IF (P-M)#(P-M-1)#(P-M+1)=0 THEN CALL 17015: MUSIC "-/100": CALL 17006:SR=S 

R+.S:MC=-MC: GOTO 29 

170 IF KEYS (1)="W" THEN POKE P,Q:PR=PR-1: IF P<352 THEN 160 

180 IF KEY$ (1)="E" THEN POKE P»O:PR=PR+1: IF P<352 THEN 160 

185 IF P<352 THEN 1460 

190 IF (P-E)#(P-E+1)#(P-E-1)=0 THEN POKE.E,45: POKE E-1+66: MUSIC “-/1010+#10" 

ISR=SR+1 

200 GOTO 30 

250 POKE MO: POKE M+1,0! POKE M-1,O0:M=M+MC: POKE M+ 6: POKE M+1+72 POKE M-1+8: 

IF (M-R)#(M-E)<>0 THEN RETURN 

300 POKE 8194+30: FOR X=0 TO 15: PRINT : NEXT X? IF M-E=0 THEN PRINT “THE U.S. 

S. ENTERPRISE HAS BEEN TRAMPLED BY A CLUMSY ALIEN COM- MUNIST!" 

ae M-R=0 THEN PRINT “THE ROMULAN VESSEL HAS BEEN DESTROYED BY THE ALIEN CO - 

315 PRINT “THE SCORE FOR THE ROMULAN VESSELIS: “sSR 

320 PRINT "THE SCORE FOR THE STARSHIP ENTERPRISE IS: “s3SE 

330 STOP : REM ARK-THIS REM ARKABLE "STAR TREKKERS" PROGRAM WAS DESIGNED AND P 

ROGRAMMED BY BRUCE CHAPMAN. 

999 DATA 170+170+170+170+170170+1701170117011701170+1704 170+ 170+ 17011701 106190 

186 1861861864901 1021 102+ 10218611021 10211021164+170 

1001) DATA 1719165+14951491 149) 149) 1659153) 15311531 149,1535 1531 153+1541170,17001 

704106 +1061 10672164 164164174 164196s104117011701170 

1002) DATA 170117011691 1695169+33s1519129916191+994191701170+170 

1003 DATA 170+170+170+170+1701170+ 106917011701 170+ 1701170+170+17011701170 

1004 DATA 170917012354 190125512551 25591251255 195+ 19012351235 1170117011701 23402 * 

34+170+171+171+238+2501 254125412501 170+1701170+234 : 

ae DATA 170+170+171 6171917012341 234+ 187117551911191 917541701 170+1700171+17001 


Dan Wilson of Bloomfield IN. sent 
us this Maxwells Demons program. It 
is a bit simple but it is still fun 
to play. The object of this game is 
to trap molecules coming from the 
left side,on the right side of the 


. 

grid. Have fun folks! 

O REM +#teeeeteeeeeeteneeeeenee 

1 REM ###**#MAXWELLS DEMONS###e# 

2 REM ##teeeeeeeeeeeeeeeneneeee 

3 REM ###eeDJW R2 042427781 8888# 

4 REM tteeeeaeeeeeeenneene eee 

S POKE 24578,54: CALL 17046: DIM K$(1)! GOSUB 60 

6 R= RND (R)tR= INT (10#R)tk$= KEYS (2)! IF_K$="" THEN 47 

7 COLOR =2: PLOT 15,7: PLOT 15,8: PLOT 16+7: PLOT 14,8:T=T+1 
8 MUSIC "#1": COLOR =1: PLOT 15,7: COLOR =Z: PLOT 15,7: IF k$="?" THEN S® 
9 COLOR =2 


10 ON R GOTO 35,37/39+41,43,4511 

11 COLOR =1: MUSIC "#1" 

12 PLOT 46.8: PLOT 1457: PLOT 15/7 PLOT 15/8 

13° GOTO 47 

14 REM DETERMINE POSITION 

15 COLOR =1: PLOT 16,8:R= RND (R) 

16 COLOR =2: PLOT 16+8:R= INT (R#20) 

17 REM FROM R VALUE 

18 IF R=1 THEN LET A=6:B=5 

19 IF R=2 THEN LET A=8:B=6 

20 IF R=3 THEN LET A=10:B=7 

21 IF R=4 THEN LET A=26:B=5 

22 IF R=S THEN LET A=18:B=7 

23 IF R=6 THEN LET A=25:B=10 

24 IF R=7 THEN LET A=21:B=8 

25 IF R=8 THEN LET A=24:B=7 

26 IF R=9 THEN LET A=22:B=6 

27 IF R=10 THEN LET A=13:B=8 

28 IF R=i1 THEN LET A=7:B=6 

29 IF R=i2 THEN LET A=9:B=9 

30 IF R=13 THEN LET A=5:B=7 

31 IF Rei4 THEN LET A=5:B=10 

32. IF R=15 THEN LET A=26:B=6 

33 IF R=16 THEN LET A=23:B=9 

34 COLOR =1: PLOT 15,8: COLOR =2! PLOT 15,8: RETURN 

25 PLOT X1,Y1? GOSUB 15 

36 LET Xi=A:YisB: GOTO 11 

37 PLOT X2,Y2? GOSUB 15 

38 LET X2=a:Y2=B: GOTO 11 

29 PLOT X3,¥3? GOSUB 15 

40 LET x3=a:Y3=B: GOTO 11 

41 PLOT X4,Y4? GOSUB 15 

42 LET X4=A:Y4=B: GOTO 11 

43 PLOT X5,Y5! GOSUB 15 

44 LET XS=arYS=B: GOTO 11 

45 PLOT Xé,Y4: GOSUB 15 

46 LET X4=atYé=B: GOTO 11 

47 COLOR =4: PLOT X3,Y3! PLOT X5,YSt PLOT X1,Y1? MUSIC "12 

48 PLOT X2+YZ! PLOT X5/YS: PLOT X3+Y3 

4s PLOT X1+Y1? PLOT X5S,Y5? PLOT X2,Y2 

50 PLOT X6+Y6! PLOT X1,Y1? MUSIC "456" 

51 IF X1<15 THEN 4 

SZ IF X2<15 THEN & 

53 IF X3<15 THEN 4 

54 IF X4<15 THEN 6 

55 IF X5<15 THEN 4 

Sé IF X6<15 THEN 6 

57 PRINT “A WINNER! '": PRINT = INPUT “AGAIN Y/N"/K$? IF _K$="Y" THEN S 

S@ PRINT “YOU TOOK “sTs" TIMES": PRINT ? PRINT "THANKS FOR PLAYING" 

59 END 

60 PRINT "SIX FLOATING MOLECULES ARE IN “? PRINT “ONE CHAMBER OF A TWO CHAMBER 
“" 

bt PRINT "A GATE CONNECTS THE TWO TOGETHER": PRINT ! PRINT “OBJECT IS TO OFEN G 

ATE $0 THAT" 

62. PRINT "MOLECULES WILL BE ON OTHER SIDE": PRINT : PRINT “TC! OPEN GATE PRESS F 

IRE ON LEFT": PRINT “CL WILL QUIT" 

63° FOR R=1 TO 2500: NEXT R 

64 CALL 170466 

65 COLOR =O: SHAPE =15: HLIN 12.19/64: HLIN 12/1992 HLIN 19 


+42 HLIN 19/26/11 


46 HLIN 3/12/42 HLIN 3/12/11: VLIN 411+3% VLIN 411/28 

47 PLOT 19,5: PLOT 12,102 PLOT 19910 

68 SHAPE =15: HLIN 4711/5: HLIN 4,11+62 HLIN 452757 

+ HLIN 20,27,5: HLIN 12796 

1,102 HLIN 20/27/92 HLIN 2072710 

PLOT 15,7! PLOT 16,5: PLOT 15-8: PLOT 1617 

1=S2V1=42X2=108 Y2=72XB=52 VS=LOPK4=52 V4S7 EXS=72VG=SSEXSHITY 


6% HLIN 4527) 
70 
71 
7z 


HLIN 4/11 


o 


MUSIC "333 =10:T=0: COLOR =3: SHAPE =15 
74 PLOT X1+¥12 PLOT XZ+e¥Z! PLOT XB-YS! PLOT X4,Y4: PLOT XS+YS: PLOT X6+Y¥4 
75 RETURN 


One thing that is helpful to 
Roland DeGraff of Holland MI, is to 
know how much memory a certain pro- 
gram resides in. The following 
program can be used to find out how 
much memory is used. 


—_— Sr eS 


9994 TIM As(1) z 

9995 FOR X=419782 TO piahits a 
999% PRINT X+ CHRS ( PEER. : 
9997 A$= KEYS (0): IF Ag="" THEN F297 
9998 NEXT X 

99997 END 


Since RAM starts out at 41988 
this is where the beginning of every 
Basic program starts. Now, as long 
as you hold down the space bar or 

= any key on the keyboard, the compu- 
ter will keep printing out informa- 
tion in the following format: 
memory location----character in mem- 
ory location. When you reach the 
last statement in the last line of 
your program, you simply subtract 
that memory location from 41988 and 
that will be the number of bytes 
that the program resides in. 


On to an Auto Race program by 
Brett Neustater. The left joystick 
is used to keep the car (white) on 


nd the track (green). The game keeps 
track of crashes during the allotted 


time period. Go to it members! 


10 REM «. AUTO RACE... 

20 DIM A$(1)?X=15: FOR @=1 TO 32: PRINT = NEXT 

30 INPUT “ENTER SKILL (1=EASY 2=HARD) "+ ViA=13:Y=3 

40 SHAPE =15: COLOR =O: FOR E=0 TO 15: HLIN 0+31,/E: NEXT 
50 FOR K=1 TO 200:A$= KEY$ (2) 

60 IF A$="W" THEN X=X-1 

70 IF A$="E" THEN X=X+1 

80 COLOR =4: PLOT X,Y: IF PEEK (S12+(Y+1)#32+X)<>143 THEN 160 : 
90 COLOR =7:U= INT ( RND (0)#3)+12 ON U GOTO 100,110,120 
100 A=A+V: GOTO 120 

110 A=A-V 

120 IF A<1 THEN A=1 

130 IF A>23 THEN A=23 

140 HLIN OrAr152 HLIN At6,31,15: COLOR =O! HLIN At1,A+5+15 
150 PLOT X+Y: PRINT : NEXT : GOTO 170 

160 CALL 17024: COLOR =7: PLOT X+Y#C=C+1! NEXT 

170 PRINT “YOU CRASHED";C3"TIMES"? CALL 17026 

180 END 


This next program was sent to us 
by Thomas Conkey of League City, TX. 
The program fills the screen with 
eight different colored stripes and 
can be used as a guide in getting 
the correct hues on your television. 
Thanks Thomas, for such a useful 
program. 


3 CALL 17044: PORE 
10 SHAPE =15 
15 X=0 
20 1=0 
25 COLOR =I 
- 30 VLIN O+15+X 
35 IF X>3 THEN 45 
40 GOTO 120 
45 IF X>7 THEN 55 
20 GOTO 120 
a2 IP X>11 THEN 65 
602 SUir 1 20 
6S. iF -X>15 THEN 73 
7O GOTO 120 
75 IF X>19 THEN 8 
80 GOTO 120 
83 IF X>23 THEN 
90) «6GOTO 120 
95 -ITF X>27 THEN 105 
100 GOTO 120 
105 IF X31 THEN 140 
120 Y=Y+1 
125 IF Y=4 THEN 135 
130 )6©GOTO 145 
135 Y=0 . 
140 J=I+1 
145 IF I27 THEN 140 
150 X=X+1 
155 GOTO 25 
140 GOTO 140 


in 


Li 
pa 


Ah, a program for lovers, or at 
least one that is useful for Valen- 
tines Day. All you romantics can 
thank Dan Nelson of Long Beach CA 
for this valentine producing program. 


(10) 5 "#eeHH"S SPC (3) 5 eeeee 
20 PRINT TAB (8); "#####e#e8e" 3 SPC ) 5 "ieee! 
30 PRINT TAB (7)3"###teeHHRHE" 5 Berta tal 
40 Se PRINT TAB (6)3"##%"s SPC (9); "PESO (9) 3 “hee” 
60 PRINT TAB (5)3"###"3 SPC (8)3"HAPPY"? SPC (9)3 "eee" 
70 PRINT TAB (5)3"###"3 SPC (5)3"VALENTINE’S"; SPC (5) 53 "eee" 
80 PRINT TAB (5)s3"##8"3 SPC (9)3"DAY"3 SPC (9) 5 "eee" 
100 PRINT TAB (6)s5"###"3 SPC (19) 3 "eae" 
110 PRINT TAB (7)3"##8"3 SPC (17) 5 "eee" 
120 PRINT TAB (8)3“###"§ SPC (15) 3 "eee" 
130 PRINT TAB (9) 3 "sees SPC (11) 3" Heee" 
140 PRINT TAB (11)3 "#88" SPC (7) 5 "HHHe" 
150 PRINT TAB (13) 5"####"3 SPC (3) 3"#eee" 
160 PRINT TAB (15) 3 "##eeeee" 
170 PRINT TAB (17)3"###" 
180 PRINT TAB (18)5"#"5 
GOTO 190 


Have you ever felt as though you 
were being ripped off by your Gas 
or Electric company? From now on 
you can make sure that you're not} 
by figuring out your bill ahead of 
time with Peter Moranski's Electric 
and Gas Rates program. Nice going 
Peter! 


5 GOSUB 1000 
10 PRINT "ELECTRIC AND GAS RATE CALCULATOR": 
20 PRINT “IF you roel YOUR ELECTRIC AND GAS 
2 PRINT 

30 INPUT “TYPE” ne PRINT 

40 IF A=1 GOTO 240 

50 GOSUB 1000 

60 INPUT “PREVIOUS GAS AMOUNT $",A: PRINT 
1¢ eeteat $",B: PRINT 


PRINT = PRINT 
RATES TYPE 1 AND THEN RETURN, IF NO 


70 INPUT "PREVIOUS EL. 
80 INPUT "GAS UNITS 
T "KILOWATT 
re=B/D 


ie 
S eens AN " PRINT 


JE 1000 
INFUT “PREVIO 


AS METER READING"+A? PRINT 

INFUT appeeee LEC TRIC METER eet we PRINT 
INPUT " 5 METER READING" 
“PRESENT ELECTRIC METER READING® eat TpRINT 


INFLIT 


=M#G 2 Y: 
180 GOSUB 1000 
PRINT "YOUR GAS BILL If $"3X: 


PRINT “YOUR ELECTRIC: BILL 
PRINT “YOUR TOTAL BILL IS 5 
IF X+Y¥>250 THEN PRINT "WOW- 


INPUT "“GAS---COST PER UNIT" 
INPUT “ELECTRIC---COST PER KTLOWATT HOUR” 


GOTO 110 

CALL 17046 

FOR L=1 TO 32: PRINT =? NEXT L 
POKE 40960,2: POKE 40961+0 


PRINT = PRINT = RETURN 


The next two programs will prob- 
ably be quite useful to Many of you 
clubmembers. The first program was 
sent in by Alan Nakamoto of Richmond 
B.C. and it deals with square roots. 


10 PRINT "FINDING SGUARE ROOTS" 

20 FRINT 

30 INPUT “NUMBER TO BE ROOTED",Xx 

40 N=1:B=X:C=10 

30 IF X>1000010000 THEN LET C=12 ‘ 
60 IF X+100000100000 THEN LET C=15 

70 IF X%40000004000000 THEN LET C=20 
80 FOR A=1 TOC 

70 B=(B+N)/2 


100 N=X/E : 
110 NEXT A 
120) PRINT 


130 PRINT “THE SQUARE ROOT OF "3X 

140) PRINT "IS"3B 

143° PRINT B*B 

145 GOTO 10 

150 END z 


The second and final program for 
this issue was sent in by Norm puf¢f- 
Nayle of Wichita, KS. Norm's pro- 
gram converts hexidecimal numbers 
to decimal. (This program will be 
of great help to you when you're 
working with graphics.) 


10) PRINT "THIS PROGRAM CONVERTS" 

20 PRINT "HEXIDECIMAL NUMBERS TO DECIMAL” 

30 PRINT "AND ALSO DOES THE REVERSE.": PRINT = PRINT 
40° DIM N$(S) + A$(3) + BS(S) +703) + D9(1) +0901) 

SQ PRINT “CONVERT TO) HEX(H)" 

60 INFUT “OR DECIMAL(D)"»D$: IF D$="D" THEN 170 

70 DATA 4096125491451 

80 FRINT = PRINT "DECIMAL CONVERSION (99999 STOP)": PRINT 
90 RESTORE = INPUT "DECIMAL NUMBER" ,»N?Z1=N 

100 IF Nog9999 THEN 250 

110 BS=N$:B$="_ "2J=4 

120 REAL P:X= INT (N/P): IF X>9 THEN 140 

130 Y=xX+48: GOTO 150 


140 Y=X+55, 
150 C$= CHR (Y) BS( LEN ppt aa ds N=EN-(P#X)2J=J-1: IF J>0 THEN 120 
160 PRINT "DECIMAL "3215 "SBS" HEX": GOTO 90 


170 PRINT = 
175 AS=NS 
180 INPUT "HEX NUMBER",A$: IF A$="END" THEN 250 
190 CS=N$:C$=A$(J)2Y= ASC (C$)? IF ¥>64 THEN 210 
200 Z2(J)=¥-48: GOTO 220 

210 Z(J)=Y-55 

220 J=J+1: IF J<4 THEN 190 

230 D=4096#2(0)+2546"7 (1)4146#2(2)4+72(3) 

240 PRINT "HEX “SA$3" IS "$03" DECIMAL": 
250 END 


PRINT ‘HEX CONVERSION( "END" STOP)‘ 3.J=0: PRINT 


GOTO 170 


Well clubmembers, Norm's program 
wraps up this issue of the news- 
letter. Please don't be discouraged 
if your program wasn't used in this 
issue. So many programs are sent 
in, and there are so few Pages to 
work with. Keep in mind that if we 
have exchanged APF software for your 
Program, that eventually your pro- 
gram will be used. 

Hope you enjoy this issue club- 
members; till the next issue 


Editor 


**NEW** 
HARDWARE 


IM-2 - IMAGINATION MACHINE 
AL-200 - LEVEL 2 BASIC - IM-1 
AL-300 - LEVEL 2 BASIC - IM-2 
VK-1 - VIDEO CONVERSION KIT 


SOFTWARE 
BP-50 = 


BP-60 = 
SY=50.— 


GENERAL LEDGER 
COMPU-CALC (IM-2) 
DIAGNOSTICS 


WHAT'S AVAILABLE IN SOFTWARE 
SYSTEMS PROGRAMS 

SY-20 - ASSEMBLER EDITOR 
(disk only) 


BACKUP (disk only) 
DISASSEMBLER (disk) 


SY-30 = 
~SY-40 - 


DISK OPERATED PROGRAMS 


BP=30° = 
BP-40 - 


ACCOUNTS RECEIVABLE 
MAILING LIST 


COMPUTER CASSETTE PROGRAMS 
(Education/Entertainment) 

MA-125 MUSIC COMPOSER/PLAYER 

PIANO 

TYPING TUTOR 

MATH TUTOR 

PERCEPTION I 

ARTIST and EASEL 

THE WORD FACTORY 

SPELLING DUEL 

BILLBOARD/MESSAGE 

CENTER 

BASIC TUTOR 

JUMBLED UP THINGS 

SPACE DESTROYERS 


MA-150 
MA-200 
MA-225 
MA-325 
MA-375 
MA- 400 
MA-475 


MA-500 - 
MA-550 
MA-575 


$1599°..95 


99.95 


15.00 


199.595 
£29595 


a2. 95 
29,95 
29.95 
14.95 

Ves 


14.95' 


14.95 


£995 


49.95 


29095 
592.95 


(Business/Personal Management) 


MA-175 - CHECKBOOK/BUDGET 
MANAGER 
SPACE, SIZE and SUR- 


FACE GUIDE 


MA-250 - 


*Cannot be used on IM-2 


29.595 


29:95 


MA-275 - PERSONAL BUSINESS 29.95 
MACHINE 
MA-300 - BUDGET MANAGER II 19.95 
MA-350 - BAR CHARTS 19.95 
MA-425 - ELECTRONIC FILES 29.95 
COMPUTER GAME CARTRIDGES 
MG-1001 - CATENA 14.95 
MG-1003 - HANGMAN/TIC TAC TOE/ 
DOODLE 9.95 
MG-1004 - BOWLING/MICRO MATCH 19.95 
MG-1005 - BRICKDOWN/SHOOTING 
GALLERY 9.95 
MG-1006 - BASEBALL* 14.95 
MG-1007 - BLACKJACK 9.95 
MG-1008 - BACKGAMMON* 19.95 
MG-1009 - CASINO I/ROULETTE/ 
KENO/SLOTS 19.95 
MG-1010 - UFO/SEA MONSTERS / 
BREAK IT DOWN/REBUILD/ 
SHOOT 19.95 
MG-1011 - PINBALL/DUNGEON HUNT/ 
BLOCKOUT 19.95 
MG-1012 - BOXING 14.95 
MG-1013 - SPACE DESTROYERS 39.95 
WHAT'S AVAILABLE IN HARDWARE 
pD-100-0 MINI FLOPPY DISK 
DRIVE 399.95 
D-100-1 2nd MINI FLOPPY DISK 
DRIVE 399.95 
D-100-A DUAL MINI FLOPPY DISK 
DRIVES 799.90 
R-8K - 8K RAM MEMORY CARTRIDGE 
(IM-1 ONLY) 79.95 
R-16K - 16K RAM MEMORY CART- 
RIDGE (IM-2 ONLY) 99.95 
WW-100 - WIRE WRAP BOARD 34.95 
BB-1l - BUILDING BLOCK/SI232 159.95 
BB-2 - BUILDING BLOCK/FI100 159.95 
PI-100 - PARALLEL INTERFACE 
CARTRIDGE 99.95 
SI-232 - SERIAL INTERFACE CART- 
RIDGE 99.95 
FI-100-A - MINI FLOPPY DISK 
INTERFACE 99.95 
TVM=10 - VIDEO MONITOR 149.95 


WHAT'S AVAILABLE IN DOCUMENTATION 


TRM - TECHNICAL REFERENCE MANUAL N/C 
LBL-1 - LISTINGS, I/O ROUTINES, 
DOS 14.95-- 
LBL-2 - LISTINGS, BASIC INTER f 
PRETER 19.95 
SM-1 - IM-1 SERVICE MANUAL 14.95 


STAR TREX wn 


THE ULTIMATE STRATEGIC SPACE BATTLE! 


SEEK OUT AND DESTROY THE FLEET OF KLINGON WARSHIPS WHICH THREATEN THE 
GALAXY IN A RACE AGAINST "TIME", AS YOU COMMAND YOUR STARSHIPS: 


WARP ENGINES x & t x 
SHORT RANGE SCANNERS 
eis" LONG RANGE SCANNERS Sy * 
PHASERS 
SS PHOTON TORPEDOS £ kK x 
ENERGY/SHIELDS 


DAMAGES 
ON-BOARD COMPUTER (STATUS, TORPEDO COURSE, 
STARBASE LOCATIONS, GALACTIC MAP, 


a =~ MEMORY OF PREVIOUS LONG RANGE SCANS). 
40° 35 
.) 


o 


45 SHORT RANGE SCAN GIVES SEMI-GRAPHICS DISPLAY OF YOUR STARSHIP'S 
LOCATION AND ALL STARS, KLINGONS AND STARBASES WITHIN YOUR PRESENT 
QUADRANT. STAR TREX IS NOT AN "ARCADE" GAME, RATHER AN EXCITING GAME 
OF SKILL AND STRATEGY. REMEMBER TO KEEP YOUR SHIELDS UP, AS THE 
KLINGONS' PHASERS CAN DAMAGE ANY PART OF YOUR STARSHIP WITH SURPRISING 
SPECIAL EFFECTS! 


STAR TREX INTRO PROGRAM AND GAME PROGRAM .... 8K ..cceeecceeeee $12.95 


ms ©! CoNCENTRATIOU ,* 


NO MORE LOST OR BENT CARDS! LET YOUR IMAGINATION MACHINE SHUFFLE AND 
DEAL OUT THE 52 CARD DECK AS YOU AND YOUR OPPONENT USE THE JOYSTICK/ 
CONTROLLERS TO TRY AND SELECT PAIRS. LEFT AND RIGHT SCORES ARE ALSO 
DISPLAYED ON THE SCREEN IN THIS HI-RES GAME. 


HEAD- HUNTER 


YOUR COMPUTER KEEPS SCORE AS 2 PLAYERS USE THE JOYSTICK/CONTROLLERS 
TO EVADE, PURSUE AND SHOOT THE HEADS IN THIS FAST-ACTION, HI-RES GAME. 
WATCH OUT, THERE'S ONE BEHIND YOU! 


~— CONCENTRATION AND HEAD-HUNTER (BOTH) ...c.054 8K wescececevecee $ 9.95 


& MINOTAUR : 


ENTER THE MINOTAUR'S CASTLE, DESTROY IT AND CLAIM IT'S TREASURES IN 
THIS ADVENTURE GAME. (NO GRAPHICS). 


MINOTAUR ........... 8K «eeseeeeeeee FREE WITH PURCHASE OF BOTH TAPES! 
IMAGINATION MACHINE PROGRAMS ABOVE MAY BE PURCHASED FROM: 
G. R. JONES 
419 S. 105 EB. PL. 
ON CASSETTE \/ Box TULSA, OKLAHOMA 74128 ALL 4 For $229 


MONEY ORDERS (OR CHECKS) ONLY, PLEASE. 


PROGRAMS FOR FUN 


Numbers AND LEARNING FOR ACF ComputeRns 
( TIC TAC KNOW = 
+01 8 K VERSION - Two players take turns trying to claim the 


boxes on a tic-tac-toe game board. The boxes are won 

$8.00 by correctly answering questions. Input is via the game 
controllers. There are 9 topics with 4 questions on each 
topic. 

#102 16 K VERSION - The game board is the same as the 8K version 

except that a blue and redsquare is used to mark the 

$12.00 boxes. Also, there are a total of 81 questions; 9 topics 
with 9 questions each. This version has the ability to 
recognize when someone has won. It then ends the game and 
states who won. 


{ TIME MACHINE 
#103 16 K - This is a fun way to learn history. The game is for 
2,3 or 4 players. At the onset of the game you enter the 


$12.00 number of rounds to be played and the level of difficulty 
for each player. You also decide whether or not to have the 
correct answer shown. Computer keeps score and keeps track 
of the turns.Players use game controllers. 


MATH TIME 

#104 8 K - Ever have trouble reading numbers on the screen ??? 
Well, all of the numbers in this program are in large, 
colorful graphics. With this program you can practice 

; $8.00 addition, subtraction, multiplication ,division,times 

" tables, and a mixture of operations. The computer keeps 

track of your score and amount of time needed. Try to 
increase your speed and accuracy. 


STAR BATTLE 
#105 8 K = One player at the keyboard. Sorry, no graphics. You 
have to find and destroy the enemy space ship. You have 
$5.00 a limited amount of fuel. Be careful, the enemy will 
occassionally shoot at you and he may also change his 


position. 
MONEY 
“= 06 8 K - This program is designed to help children to learn 
ee how to add up money and make change. The child is told 
»/ &5.00 the amount of money he has and then is given the chance to 
spend it and compute his change. 
SYMBOLS 
#107 8 K - This program is for anyone interested in science or 
planning a career in science. The program will help 
$8.00 a person to learn the symbols and names of 25 common 


chemical elements. Symbols are displayed as large, 
colorful low-resolution characters. 


CODE PRACTICE 8 K - Learn and practice morse code. Allows you 
98 $8.00 to practice random letters or groups of letters.Good 


\ for those interested in radio electronics. 
eH HH HH HH HHH HH HH HH HHH HHH HHH HEHEHE HH HE 


APPROPRIATE AMOUNT ALONG WITH THE PROGRAM NUMBER(S) TO 
Richard Carman, 7 Roda Dr. , Mastic,N.Y. 11950 
MAKE CHECKS AND MONEY ORDERS PAYABLE TO Richard Carman. ~ 


PROFESSIONALLY CREATED PROGRAMS FOR THE APF IMAGINATION MACHINE 


EXECUTIVE SOFTWARE AVAILABLE: 


CONTROLLED LIST. 


using the joystick. 

ideal tool for debugg 
Renumber an 
vals between statemen 


RENUMBER. 


CODE ALLOWED. 
GRAPHICS HELPER. 
the joystick. 

the design, di 


created shapes. 
codes generated for each 


Scroll back and forth through a BASIC program 
Make changes and resume scrolling. An 

ing or modifying a program. 

APF BASIC program, leaving 5 line inter- 
ts to allow for modifications. NO IN-LINE 


HI-RES programers can now create shapes using 
This program creates the codes necessary to build 
Splays it and allows modifications to any 
The-menu allows the programer to list the 
shape in HEX and DEC and to display 


any designs on the screen. 
BUT THE BEST PART is that it provides for the shapes created 


to be used in 


A CALL routine is provi 
The only coding needed 
is POKE Address, Shape. 


PROGRAMMER! 
DISK-TO-TAPE BAC 
tape to disk. 
of manual swit 
INTERVENTION i 
LET THE COMPUT 


GAMES FOR THE APF: 
APF-MAN- FINALL 
game is availa 
screen trying 
being pursued 
screen becomes 
A VERY GOOD HI 
with bonus poi 
for the APF si 
TREASURE HUNT. 
quickly as you 
joystick. Two 
other or take 
Each game is d 
JIGSAW PUZZLES. 
in as few move 


It's not as sim 


ART THIEF. A va 


determine who stole 


another BASIC program as a REMARK statement. 

ded which relocates the shape table. 

to put HI-RES shapes on the screen 
A MUST FOR THE SERIOUS HI-RES 


KUP/RESTORE. 
Eliminate the 
ching of disks. 
S required. 

ER DO THE WOR 


Backup disks to tape and restore 

need for 2 disk units or a lot 
Once started NO OPERATOR 

Start the program and take a break! 

K. 


Y an APF version of this most popular arcade 
ble! The little muncher scurries around the 
to gobble up as many points as he can while 
by some very intelligent robots. Each new 
more challenging as the robots pick up speed. 

“RES SIMULATION OF THE ARCADE GAME. complete 

nts and energizers. The most REALISTIC game 

nce SPACE INVADERS! 

Accumulate as much treasure as possible as 
can by maneuvering around the board with the 
Players may pit their skills against each 

on the computer in one of five skill levels. 

ifferent so strategy is a must. 

Program builds jigsaw puzzles to be solved 

S aS possible. Every puzzle is different. 

ple as you might think. ; 

luable painting has been stolen and you must 

it and when. Question the suspects 


and deduce the solution. Be careful though because some 


people are forgetful and t 


LO-RES graphics game with 5 skill levels. 


he thief. of course, might lie. 


GRAPHICS HELPER $ 15 APF-MAN = 20 
RENUMBER & TREASURE HUNT ) 
CONTROLLED LIST & JIGSAW PUZZLES 8 
TAPE/DISK BACKUP 4 ART THIEF & 
SOFTWARE PACK 3S GAME PACK 40 


TINCLUDES ALL OF ABOVE} : 
CARL A. ECHOLS 
Ll2 CREEKSIDE LANE 


SEND CHECK/MONEY ORDER TO: 


TINCLUDES ALL OF ABOVE} 


NOBLESVILLE, IN 4bO0b0 
NAN E nnn nen nnn n en enema nen nee acne 
STREET own nnn nnn nw nnn weenie enn e eee nen nnn 
CITY ~--=--------- =~ STATE----------- ZIP------~- 


